object dm1: Tdm1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 651
  Width = 679
  object db1: TpFIBDatabase
    DBParams.Strings = (
      'lc_ctype=WIN1251')
    DefaultTransaction = trnRD
    DefaultUpdateTransaction = trnWr
    SQLDialect = 3
    Timeout = 0
    WaitForRestoreConnect = 0
    Left = 24
    Top = 16
  end
  object trnRD: TpFIBTransaction
    DefaultDatabase = db1
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 64
    Top = 16
  end
  object trnWr: TpFIBTransaction
    DefaultDatabase = db1
    TimeoutAction = TARollback
    TRParams.Strings = (
      'write'
      'nowait'
      'concurrency')
    TPBMode = tpbDefault
    Left = 96
    Top = 16
  end
  object DS_Srv_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    STATE'
      'FROM'
      '    SPR$SRV'
      'WHERE State=1'
      'ORDER BY Name ')
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    Left = 28
    Top = 76
  end
  object ds_Kontragent: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    STATE,'
      '    ADDR,'
      '    POSTADDR,'
      '    INN,'
      '    KPP,'
      '    FAX,'
      '    PHONE,'
      '    BANK,'
      '    BIK,'
      '    SCHET,'
      '    KSCHET,'
      '    DIR,'
      '    OTV,'
      '    DOG,'
      '    TARIF,'
      '    PRIORITY,'
      '    ISACTIVE,'
      '    DOPCODE,'
      '    IsUtsk'
      'FROM'
      '    SPR$KONTRAGENT'
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY NAME')
    AutoUpdateOptions.UpdateTableName = 'SPR$KONTRAGENT'
    AutoUpdateOptions.KeyFields = 'CODE'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Left = 56
    Top = 76
    object STATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object CODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object NAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 256
      EmptyStrToNull = True
    end
    object ADDR: TFIBStringField
      DisplayLabel = #1070#1088'. '#1072#1076#1088#1077#1089
      DisplayWidth = 32
      FieldName = 'ADDR'
      Size = 256
      EmptyStrToNull = True
    end
    object POSTADDR: TFIBStringField
      DisplayLabel = #1055#1086#1095#1090'. '#1072#1076#1088#1077#1089
      DisplayWidth = 32
      FieldName = 'POSTADDR'
      Size = 256
      EmptyStrToNull = True
    end
    object INN: TFIBStringField
      DisplayLabel = #1048#1053#1053
      DisplayWidth = 12
      FieldName = 'INN'
      Size = 32
      EmptyStrToNull = True
    end
    object KPP: TFIBStringField
      DisplayLabel = #1050#1055#1055
      DisplayWidth = 12
      FieldName = 'KPP'
      Size = 32
      EmptyStrToNull = True
    end
    object FAX: TFIBStringField
      DisplayLabel = #1060#1072#1082#1089
      DisplayWidth = 12
      FieldName = 'FAX'
      Size = 32
      EmptyStrToNull = True
    end
    object PHONE: TFIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      DisplayWidth = 12
      FieldName = 'PHONE'
      Size = 64
      EmptyStrToNull = True
    end
    object BANK: TFIBStringField
      DisplayLabel = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090'|'#1041#1072#1085#1082
      DisplayWidth = 15
      FieldName = 'BANK'
      Size = 256
      EmptyStrToNull = True
    end
    object BIK: TFIBStringField
      DisplayLabel = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090'|'#1041#1048#1050
      DisplayWidth = 12
      FieldName = 'BIK'
      Size = 32
      EmptyStrToNull = True
    end
    object SCHET: TFIBStringField
      DisplayLabel = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090'|'#1057#1095#1077#1090
      DisplayWidth = 15
      FieldName = 'SCHET'
      Size = 32
      EmptyStrToNull = True
    end
    object KSCHET: TFIBStringField
      DisplayLabel = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090'|'#1050'.'#1089#1095#1077#1090
      DisplayWidth = 15
      FieldName = 'KSCHET'
      Size = 32
      EmptyStrToNull = True
    end
    object DOPCODE: TFIBStringField
      FieldName = 'DOPCODE'
      Visible = False
      Size = 256
      EmptyStrToNull = True
    end
    object ds_KontragentISUTSK: TBooleanField
      DisplayLabel = #1059
      FieldName = 'ISUTSK'
    end
  end
  object ds_Schet: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT first 2000'
      '    SPR$SCHET.CODE,'
      '    SPR$SCHET.STATE,'
      '    SPR$SCHET.KONTRAGENT, '
      '    SPR$KONTRAGENT.NAME KONTRAGENT_NAME, '
      '    SPR$SCHET.MASTER,'
      '    SPR$SCHET.ADDR, '
      '    SPR$ADDR.NAME ADDR_NAME, '
      '    SPR$SCHET.DATE_OPEN,'
      
        '    IIF(SPR$SCHET.DATE_CLOSE>'#39'1.1.2000'#39',SPR$SCHET.DATE_CLOSE,NUL' +
        'L) DATE_CLOSE,'
      '    spr$SCHET.Total_SQ, '
      '    spr$SCHET.Living_SQ, '
      '    spr$SCHET.Lodger_CNT,'
      '    SPR$SCHET.Phone,'
      '    SPR$SCHET.TYPEFLAT, '
      '    SPR$TYPEFLAT.NAME TYPEFLAT_NAME,'
      '    SPR$SCHET.Phone1,'
      '    SPR$SCHET.Phone2,'
      '    SPR$SCHET.Phone3'
      'FROM'
      
        '    SPR$SCHET LEFT JOIN SPR$ADDR ON (SPR$SCHET.ADDR = SPR$ADDR.C' +
        'ODE)'
      
        '    LEFT JOIN SPR$TYPEFLAT ON (SPR$SCHET.TYPEFLAT = SPR$TYPEFLAT' +
        '.CODE)'
      
        '    LEFT JOIN SPR$KONTRAGENT ON (SPR$SCHET.KONTRAGENT = SPR$KONT' +
        'RAGENT.CODE)'
      'WHERE'
      '/*FILTER*/ 1=1'
      '--ORDER BY SPR$SCHET.CODE')
    CacheModelOptions.CacheModelKind = cmkLimitedBufferSize
    CacheModelOptions.BufferChunks = 1000
    AutoUpdateOptions.UpdateTableName = 'SPR$SCHET'
    AutoUpdateOptions.KeyFields = 'Code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 88
    Top = 72
    object ds_SchetSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
      ReadOnly = True
    end
    object ds_SchetCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object ds_SchetMASTER: TFIBStringField
      DisplayLabel = #1042#1083#1072#1076#1077#1083#1077#1094
      DisplayWidth = 32
      FieldName = 'MASTER'
      ReadOnly = True
      Size = 256
      EmptyStrToNull = True
    end
    object ds_SchetADDR: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1050#1086#1076
      DisplayWidth = 10
      FieldName = 'ADDR'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object ds_SchetADDR_NAME: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1054#1087#1080#1089#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'ADDR_NAME'
      LookupDataSet = DS_Addr_lookup
      LookupKeyFields = 'CODE'
      LookupResultField = 'NAME'
      KeyFields = 'ADDR'
      ReadOnly = True
      Size = 256
      EmptyStrToNull = True
    end
    object ds_SchetKONTRAGENT: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082' '#1091#1089#1083#1091#1075'|'#1050#1086#1076
      DisplayWidth = 10
      FieldName = 'KONTRAGENT'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object ds_SchetKONTRAGENT_NAME: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082' '#1091#1089#1083#1091#1075'|'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'KONTRAGENT_NAME'
      ReadOnly = True
      Size = 256
      EmptyStrToNull = True
    end
    object ds_SchetDATE_OPEN: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1090#1082#1088'.'
      FieldName = 'DATE_OPEN'
      ReadOnly = True
    end
    object ds_SchetDATE_CLOSE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1079#1072#1082#1088'.'
      FieldName = 'DATE_CLOSE'
      ReadOnly = True
    end
    object ds_SchetTOTAL_SQ: TFIBBCDField
      DisplayLabel = #1054#1073#1097'.'#1087#1083'.'
      FieldName = 'TOTAL_SQ'
      ReadOnly = True
      Size = 2
      RoundByScale = True
    end
    object ds_SchetLIVING_SQ: TFIBBCDField
      DisplayLabel = #1046#1080#1083'.'#1087#1083'.'
      FieldName = 'LIVING_SQ'
      ReadOnly = True
      Size = 2
      RoundByScale = True
    end
    object ds_SchetLODGER_CNT: TFIBSmallIntField
      DisplayLabel = #1046#1080#1083#1100#1094#1099
      FieldName = 'LODGER_CNT'
      ReadOnly = True
    end
    object ds_SchetPHONE: TFIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      DisplayWidth = 10
      FieldName = 'PHONE'
      ReadOnly = True
      Size = 64
      EmptyStrToNull = True
    end
    object ds_SchetTYPEFLAT: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080'|'#1050#1086#1076
      DisplayWidth = 10
      FieldName = 'TYPEFLAT'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object ds_SchetTYPEFLAT_NAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080'|'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TYPEFLAT_NAME'
      LookupDataSet = DS_TypeFlat_lookup
      LookupKeyFields = 'CODE'
      LookupResultField = 'NAME'
      KeyFields = 'TYPEFLAT'
      ReadOnly = True
      Size = 64
      EmptyStrToNull = True
      Lookup = True
    end
    object ds_SchetPHONE1: TFIBStringField
      DisplayLabel = #1058#1077#1083'. '#8470'1'
      DisplayWidth = 12
      FieldName = 'PHONE1'
      Size = 64
      EmptyStrToNull = True
    end
    object ds_SchetPHONE2: TFIBStringField
      DisplayLabel = #1058#1077#1083'. '#8470'2'
      DisplayWidth = 12
      FieldName = 'PHONE2'
      Size = 64
      EmptyStrToNull = True
    end
    object ds_SchetPHONE3: TFIBStringField
      DisplayLabel = #1058#1077#1083'. '#8470'3'
      DisplayWidth = 12
      FieldName = 'PHONE3'
      Size = 64
      EmptyStrToNull = True
    end
  end
  object DS_Kontragent_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '  CODE,'
      '  NAME'
      'FROM'
      '  SPR$KONTRAGENT'
      'WHERE STATE=1'
      'ORDER BY NAME')
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    Left = 120
    Top = 68
  end
  object ds_Srv: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE'
      'FROM'
      '    SPR$SRV '
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$SRV'
    AutoUpdateOptions.KeyFields = 'CODE'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Left = 148
    Top = 64
    object ds_SrvSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object ds_SrvCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      Size = 32
      EmptyStrToNull = True
    end
    object ds_SrvNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 128
      EmptyStrToNull = True
    end
  end
  object DS_TypeFlat_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    STATE'
      'FROM'
      '    SPR$TYPEFLAT '
      'WHERE State=1'
      'ORDER BY NAME')
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    Left = 40
    Top = 116
  end
  object DS_Addr_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '  CODE,'
      '  NAME'
      'FROM'
      '  SPR$ADDR'
      'WHERE '
      '/*FILTER*/ 1=1 and State=1'
      'ORDER BY CODE')
    CacheModelOptions.CacheModelKind = cmkLimitedBufferSize
    CacheModelOptions.BufferChunks = 100
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Left = 72
    Top = 116
  end
  object FDS_Addr: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SPR$ADDR'
      'SET '
      '    NAME = :NAME,'
      '    STATE = :STATE,'
      '    ZONE = :ZONE,'
      '    STREET = :STREET,'
      '    HOUSE = :HOUSE,'
      '    FLAT = :FLAT,'
      '    PHONE = :PHONE,'
      '    TYPEFLAT = :TYPEFLAT,'
      '    VIDFLAT = :VIDFLAT,'
      '    TOTAL_SQ = :TOTAL_SQ,'
      '    LIVING_SQ = :LIVING_SQ,'
      '    LONGER_CNT = :LONGER_CNT'
      'WHERE'
      '    CODE = :OLD_CODE'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SPR$ADDR'
      'WHERE'
      '        CODE = :OLD_CODE'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SPR$ADDR('
      '    CODE,'
      '    NAME,'
      '    STATE,'
      '    ZONE,'
      '    STREET,'
      '    HOUSE,'
      '    FLAT,'
      '    PHONE,'
      '    TYPEFLAT,'
      '    VIDFLAT,'
      '    TOTAL_SQ,'
      '    LIVING_SQ,'
      '    LONGER_CNT'
      ')'
      'VALUES('
      '    :CODE,'
      '    :NAME,'
      '    :STATE,'
      '    :ZONE,'
      '    :STREET,'
      '    :HOUSE,'
      '    :FLAT,'
      '    :PHONE,'
      '    :TYPEFLAT,'
      '    :VIDFLAT,'
      '    :TOTAL_SQ,'
      '    :LIVING_SQ,'
      '    :LONGER_CNT'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      ' a.Code,'
      ' a.Name,'
      ' a.State,'
      ' a.Zone,  SPR$ZONE.Name,'
      ' a.Street, spr$street.Name,'
      ' House,'
      ' Flat,'
      ' Phone,'
      ' TypeFlat, spr$typeflat.Name,'
      ' VidFlat, spr$vidflat.Name,'
      ' Total_SQ, Living_SQ, Longer_CNT'
      'from'
      ' spr$Addr a LEFT JOIN spr$Zone ON (a.Zone=spr$Zone.Code)'
      '            LEFT JOIN spr$Street ON (a.Street=spr$street.Code)'
      
        '            LEFT JOIN spr$typeflat ON (a.TypeFlat = spr$typeflat' +
        '.Code)'
      
        '            LEFT JOIN spr$vidflat ON (a.VidFlat = spr$vidflat.Co' +
        'de)'
      'WHERE( '
      '/*FILTER*/ 1=1'
      '     ) and (     A.CODE = :OLD_CODE'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      ' spr$Addr.Code,'
      ' spr$Addr.Name,'
      ' spr$Addr.State,'
      ' spr$Addr.Zone, SPR$ZONE.Name Zone_Name,'
      ' spr$Addr.Street, spr$street.Name Street_Name,'
      ' spr$Addr.House,'
      ' spr$Addr.Flat,'
      ' spr$Addr.VidFlat, spr$vidflat.Name'
      'from'
      ' spr$Addr LEFT JOIN spr$Zone ON (spr$Addr.Zone=spr$Zone.Code)'
      
        '          LEFT JOIN spr$Street ON (spr$Addr.Street=spr$street.Co' +
        'de)'
      
        '          LEFT JOIN spr$vidflat ON (spr$Addr.VidFlat = spr$vidfl' +
        'at.Code)'
      ''
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY spr$Addr.Code')
    CacheModelOptions.CacheModelKind = cmkLimitedBufferSize
    CacheModelOptions.BufferChunks = 1000
    AutoUpdateOptions.UpdateTableName = 'SPR$ADDR'
    AutoUpdateOptions.KeyFields = 'code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 464
    Top = 224
    object blft_AddrSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object strft_AddrCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object strft_AddrNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 30
      FieldName = 'NAME'
      ReadOnly = True
      Size = 256
      EmptyStrToNull = True
    end
    object strft_AddrZONE: TFIBStringField
      DisplayLabel = #1056#1072#1081#1086#1085'|'#1050#1086#1076
      DisplayWidth = 8
      FieldName = 'ZONE'
      Size = 32
      EmptyStrToNull = True
    end
    object strft_AddrZONE_NAME: TFIBStringField
      DisplayLabel = #1056#1072#1081#1086#1085'|'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'ZONE_NAME'
      LookupDataSet = FDS_Zone_lookup
      LookupKeyFields = 'CODE'
      LookupResultField = 'NAME'
      KeyFields = 'ZONE'
      Size = 64
      EmptyStrToNull = True
      Lookup = True
    end
    object strft_AddrSTREET: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072'|'#1050#1086#1076
      DisplayWidth = 8
      FieldName = 'STREET'
      Size = 32
      EmptyStrToNull = True
    end
    object strft_AddrSTREET_NAME: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072'|'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'STREET_NAME'
      LookupDataSet = FDS_Street_Lookup
      LookupKeyFields = 'CODE'
      LookupResultField = 'NAME'
      KeyFields = 'STREET'
      Size = 64
      EmptyStrToNull = True
      Lookup = True
    end
    object strft_AddrHOUSE: TFIBStringField
      DisplayLabel = #1053#1086#1084#1077#1088#1072'|'#1044#1086#1084
      DisplayWidth = 8
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object strft_AddrFLAT: TFIBStringField
      DisplayLabel = #1053#1086#1084#1077#1088#1072'|'#1050#1074'-'#1088#1072
      DisplayWidth = 8
      FieldName = 'FLAT'
      Size = 16
      EmptyStrToNull = True
    end
    object strft_AddrVIDFLAT: TFIBStringField
      DisplayLabel = #1042#1080#1076' '#1087#1088#1086#1078#1080#1074#1072#1085#1080#1103'|'#1050#1086#1076
      DisplayWidth = 8
      FieldName = 'VIDFLAT'
      Size = 32
      EmptyStrToNull = True
    end
    object strft_AddrVIDFLAT_NAME: TFIBStringField
      DisplayLabel = #1042#1080#1076' '#1087#1088#1086#1078#1080#1074#1072#1085#1080#1103'|'#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'VIDFLAT_NAME'
      LookupDataSet = FDS_VidFlat_lookup
      LookupKeyFields = 'CODE'
      LookupResultField = 'NAME'
      KeyFields = 'VIDFLAT'
      Size = 64
      EmptyStrToNull = True
      Lookup = True
    end
  end
  object FDS_Street: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE'
      'FROM'
      '    SPR$STREET '
      'WHERE '
      '/*FILTER*/ 1=1'
      'ORDER BY Code')
    CacheModelOptions.CacheModelKind = cmkLimitedBufferSize
    CacheModelOptions.BufferChunks = 100
    AutoUpdateOptions.UpdateTableName = 'SPR$STREET'
    AutoUpdateOptions.KeyFields = 'Code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 24
    Top = 192
    object blft_StreetSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object strft_StreetCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object strft_StreetNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 64
      EmptyStrToNull = True
    end
  end
  object FDS_Street_Lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    STATE'
      'FROM'
      '    SPR$STREET '
      'WHERE State=1'
      'ORDER BY Code')
    CacheModelOptions.CacheModelKind = cmkLimitedBufferSize
    CacheModelOptions.BufferChunks = 100
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Left = 24
    Top = 236
  end
  object FDS_TypeFlat: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE'
      'FROM'
      '    SPR$TYPEFLAT '
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$TYPEFLAT'
    AutoUpdateOptions.KeyFields = 'CODE'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 200
    Top = 248
    object blft_TypeFlatSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object strft_TypeFlatCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object strft_TypeFlatNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 64
      EmptyStrToNull = True
    end
  end
  object FDS_VidFlat: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE'
      'FROM'
      '    SPR$VIDFLAT '
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$VIDFLAT'
    AutoUpdateOptions.KeyFields = 'CODE'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 276
    Top = 240
    object blft_VidFlatSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object strft_VidFlatCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object strft_VidFlatNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 64
      EmptyStrToNull = True
    end
  end
  object FDS_VidFlat_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    STATE'
      'FROM'
      '    SPR$VIDFLAT '
      'WHERE STATE=1'
      'ORDER BY NAME')
    CacheModelOptions.BufferChunks = 16
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    Left = 268
    Top = 316
  end
  object FDS_Zone: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE'
      'FROM'
      '    SPR$ZONE '
      'WHERE'
      '/*FILTER*/ 1=1'
      'ORDER BY Name')
    CacheModelOptions.BufferChunks = 100
    AutoUpdateOptions.UpdateTableName = 'SPR$ZONE'
    AutoUpdateOptions.KeyFields = 'Code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 116
    Top = 368
    object blft_ZoneSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object strft_ZoneCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 10
      FieldName = 'CODE'
      ReadOnly = True
      Size = 32
      EmptyStrToNull = True
    end
    object strft_ZoneNAME: TFIBStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 64
      EmptyStrToNull = True
    end
  end
  object FDS_Zone_lookup: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME'
      'FROM'
      '    SPR$ZONE '
      'WHERE STATE=1'
      'ORDER BY NAME')
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    Left = 76
    Top = 372
  end
  object FDS_Users: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE,'
      '    PROFILES,'
      '    PSW'
      'FROM'
      '    SPR$USERS '
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$USERS'
    AutoUpdateOptions.KeyFields = 'CODE'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.GeneratorName = 'G$USERS'
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = trnRD
    Database = db1
    UpdateTransaction = trnWr
    AutoCommit = True
    Container = EVM.DSE
    Left = 300
    Top = 64
    object blft_UsersSTATE: TFIBBooleanField
      DisplayLabel = ' '
      DisplayWidth = 4
      FieldName = 'STATE'
    end
    object FDS_UsersCODE: TFIBIntegerField
      DisplayLabel = #1050#1086#1076
      DisplayWidth = 6
      FieldName = 'CODE'
    end
    object strft_UsersNAME: TFIBStringField
      DisplayLabel = #1060'.'#1048'.'#1054
      DisplayWidth = 32
      FieldName = 'NAME'
      Size = 128
      EmptyStrToNull = True
    end
    object FDS_UsersLASTTIME: TFIBDateTimeField
      FieldName = 'LASTTIME'
      Visible = False
    end
    object SmilintFt_UsersBASECODE: TFIBSmallIntField
      FieldName = 'BASECODE'
      Visible = False
    end
    object strft_UsersPROFILES: TFIBStringField
      FieldName = 'PROFILES'
      Visible = False
      Size = 32
      EmptyStrToNull = True
    end
    object strft_UsersPSW: TFIBStringField
      DisplayLabel = #1055#1072#1088#1086#1083#1100
      DisplayWidth = 16
      FieldName = 'PSW'
      Size = 32
      EmptyStrToNull = True
    end
  end
end
